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1.0 Break Package 



When a LIS? function does not produce the desired result/ It Is 
often necessary to examine Its operation In close detail In order 
to find the cause of failure. The TRACE feature of LISP Is a 
concession to this need, but It Is often not sufficient. This may 
occur because TRACE does not give enouch Information, since It 
Only prints the arguments and value of the function being traced, 
or because ft Is undl scr Imlnatlns, I.e., one may have to trace 
throin-'i >-iany pages of output to find the trouble spot. A break 
function on the other hand, allows the user to specify whether or 
not a iroafc will occur by making the break conditional upon the 
result of some computation, and. In this event/ to arrest the 
operation of a function. He may then Interrocate the broken 
function as to the current value of Its arguments or other 
variables* or perform arbi trary LISP computations, and then 
either continue with the execution of the broken function, or 
return with a specified value for It without actually entering 
It* Another possibility Is just to "crack" the function by 
printing out the result of some computation before executing It 
and thon printing out Its final value. Used In this way/ break 
will act like a selective trace* 
* ■ * 

To give the potential user a feellnc for how the break feature 
might be used, the following hypothetical debugging session Is 
presented. 



■ 
1*1 An example 

■* 

Suppose a function FOOl, of two arguments x and y, has been been 
define*!, and that FQ01 calls F002, a function of x, and MEMBER, 
as well as other functions. Somewhere In the operation of FOO, 
which calls FOOl, something Is not operating properly; and we 
suspect : t I s FOOl, 



brcakllat ((fool)) 

(FOOl) 
foo (2 3) now compute a value of FQO 

(BREAK IN FOOl) 
x 

h 

V 

NIL 

'car a) a Is some pros variable of FOO 

2 
stop everything seems correct/ proceed 

(VALUE OF FOOl) 

NIL 
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NIL 



the value of F00 



Since the voluc of F001 Is still not correct/ we wl 1 1 break on 
FQ02 co sec whether this Is the cause of the trouble* 



breakl 1st ((foo2)) 

(F002) 
*OU <2 5) 

(UREAK IN FOOD 
stop 

(BREAK IN F002) 
x 

3 



This gives the value of x, the argument of 
value of x, the argument of F001, one can 
al I st hy executl ng the function ALI ST, or 
(QUOTE X) (CDR (ALIST))). (Of course If the 
different n.vnes than those of F002, we 
d i root 1 y. ) 



F002, To obtain the 
ask for the entire 
by performing (EVAL 
arguments of F001 had 
could ask for them 



(allst) 

<<x . 3) 

(oval (quote 
*|MT, 

(BREAK IN F002) 



(X • H) (Y) (X . 2) 
x (cdr (allst))) 



(Y . 3) (A 2)) 



Realizing too late that we forgot to 
QUOTi; ;:, our only course was to 
However, since any error Inside of a 
Interrupt causes an ERROR*A 1*, the 
Is done. 



close the parenthesl s after 
hi t the Interrupt button, 
break resets the break, and 
break Is reset and no harm 



(cval (quote x) (cdr (allst))) 

stop 

(VALUE OF F002) 

2 

(VALUE OF FOOD 

NIL 
NIL 



FOO? wn'i correct, but F001 I s stl 1 1 wrong sonewherc. 



Wo ar- 
the br. 
MEMUSIt 



now forced to resort to breaking on MEMBER, hut wc wish 
■j| to occur only at the time that the first argument of 

- FO01, 



to occur only at the time that the fir 
t», os this Is the point of Interest for 
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unbrcokllst ((foo2 foo)) 

;rco? (foo not broken)) 

brook (mcmbur (equal a <*) nil) 

(MEM8ER IS A SUQR •** NEED ARGS) 

(a b) 

MEMBER 
break t fool t nil ) 

(FOOl ALREADY BROKEN) 
foo (2 3) 

(BREAK IN F00D- 
stop 

(BREAK IN MEMBER) 

a 

it 
x 



X should be 2, so we have found our mistake. How we would like to 
return to the break In FOOl and see If FOO Is correct except for 
the error In FOOl. We can do this by Inducing an error In the 
computation of FOOl as this automatically resets the break. No' 
that we cannot do this by simply pressing Interrupt, since this 
automatical ly resets the break In HFMPER . becouse of the built 
safety device In the break feature. However, we can cause an 
error return by typing "quit". 



quit 

ERR0R*A 1* 

MEMBER 

(BREAK IN FOOl) 
return (1 1st a) 

(VALUE OF FOOD 

U) 

*t* The correct value of FOO 



this Induces an error return 

* 

the value FOOl should have 



How we could correct FOO by editing. 



1*2 Function Definitions 



The prco< 
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break I r 
snf ofluoi ' i 
dc*f I nl t Ion 
bclnw* MM 
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against error* These are 
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There ;. v > main functions/ 3<tEAK and BREAK1, BREAK redefines 
the fui L ji; In question uslnc BREAK1 so that at the time the 
function would hove been entered/ BREAK1 Is entered Instead with 
the definition of the function and Information recording the 
conditions for breaking, BREAK 1 then takes the appropriate 
action. 



1,2.1 BREAK 



BREAK I 
EXPR or 
redcf In 
WHAT ) ) , 
argumen 
form, ( 
DUMMY i 
If FN ! 
NIL), .- 
appear* 
or i gl na 
wharc F 
value o 
(BREAK 
BREAK i 
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function of three arguments, FN WHEN 
XPR, of the form (LAMBDA (X Y Z ,. 
It tc be (LAMBDA (X Y Z ...) (BREAK1 
f FN Is a SUBR, BREAK asks for th 
on the teletype, and redefines FN as 
3DA (ARGS) (BREAK1 (DUMMY ARGS) WHEN ( 

name created to reference the SUSR de 
■Klcflned, BREAK defines It as an FEXPR 
then breaks In the normal way except 
(FN (UNDEFINED)) appears to remind the 

defined. The value of BREAK Is FN, 
,is undefined, <FN (UNDEFINED)). If FN 
R£AK Is (FN *-«*FSUBR***«). If FN is 

tell this by looking at Its deflnltlo 
FN ALREADY BROKEN), 



WHAT. If FN 
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1.2.? QR£AK1 

BREAK1 Is a function of four arguments, FORM WHEN FN WHAT, and is 
an FEXPR. If (EVAL WHEN A) Is NIL, where A Is the allst at the 
time BRFAKl Is entered, the value of BREAK1 Is (EVAL FORM A), 
I.e. no break occurs. If (EVAL WHEN A) Is (NiL), a CRACK occurs 
and (CRACK IS FN) Is printed. If WHAT Is not NIL, (EVAL WHAT A) 
Is also :i;'>nted (this Is presumably Information of Interest to 
the user). (VALUE OF FN) Is then printed followed by the value 
of (EVAL FORM A), which Is then returned as the value of BREAK1. 



If (EVAL WHEN A) Is not 
and (BREAK IN FN) Is pri 
Is also printed at this 
for Inputs to EVAL. If 



FN) and prints and returns (EVAL FORM A). 
Input, it prints (VALUE OF FN) and prints 



NIL or (NIL), a bona fide break occurs, 
ntcd. If WHAT Is not NIL, (EVAL WHAT A) 
time. BREAK1 then listens to the teletype 
STOP Is Input, BREAK1 prints (VALUE OF 



If RETURN F00 Is 
tnd returns (EVAL F00 



A). If QUIT Is Input, It performs (EfUOR FN). Any other Input Is 
evaluate!, its value printed, and BREAKl listens for more 
Inputs. Note that an Input may be evaluated for Its effect, e.g. 
one con brisak or unbreak functions while Inside of a break. 



BRCAKl Is well protected against user errors. If on error occurs 
In th* confutation of an input, even If It Is on *> STOP or RETURN 
TOO, th" brook Is I'esot ond the breaking mess or. e printed out 
nj'./iln. Mmil.-irly, Interrupt con bo pressed during the Input 
proctitis or during printing of the evaluation of an Input. This 
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1.2.3 UNBREAK 

UNBREAK Is a function of one argument, FN, If FN Is not broken 
the value of UNDUE AK Is (FN NOT BROKEN). Otherwise, UNBREAK 

redefines FN as It was before the break and returns the value FN, 
If FN was undefined, this means that the FEXPR, (LAMBDA (L A) 
NIL), will remctn on the property list. Also If FN was a SUBR, 
the fcXPR, (LAMBDA (ARGS) (DUMMY ARGS)), will also remain. To 
remove these the user must do a REM PROP, 



1. 2*li BREAKLIST 

BREAKLIST is a function of one argument, a list of function 
names* It performs (BREAK FN T NIL) for each function name and 
returns the lilt of values of BREAK. Note that (BREAK FN T NIL) 
will cause FN always to break, and will not print out any 
message, except, of course, (BREAK IN FN). 



1.2.5 UMBREAKLIST 
Slml lar to BREAKLIST. 

1.2.6 ALIST 



ALIST Is an FEXPR. Its value Is the allst 
called. 



at the time It was 



1«2.7 ERSETQ and NLSETQ 



ERSETQ < <: NLSETQ are FEXPRS* They are functions of one argument, 
FORM. They return value NIL If ( EVAL FORM ALIST) causes an 
error. Otherwise they return (LIST (EVAL FORM ALI:>T)), ERSTTQ 



prints any error messages while NLSETQ docs 
LISP function CRRORSET described In the LISP 



not. They 
manual . 



usg 



? the 
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^2,0 Edit Package 



The editing functions use FLIP, FORMAT LIST PROCESSOR, which Is a 
distant relative of COM IT-METE OR as described In memo 
However the user need onl y acquaint himself with the most 
elementary features of this formalism In order to avail himself 
of the editing features* (1) At this level FLIP Is very similar 
to COMlT-MCTtOR. We Include here a brief description of the 
lanfluagc. 



This packajii also I ncludes several functions whose purpose I s 
updating MI&S. They will be described In section 2*5. They 

are autonorous from the edl tlnp. functions and may be 
Independent 1 :/ useful. 



2, \ Basic FLIP 



processing language derivative from 

Is designed to be useful for certain 

par si ngs, and stri ng man I pulat Ions. 

however the user need onl y 



FLIP Is a format list 

COMIT-METE0R. This means It 

types of search procedures, 

For the purj>occs of edi tl ng, 

familiar with the basic operations of COM IT, plus one 

operation related to balancing parentheses. 

2.1.1 The I'YFCH feature 



be 
new 



The operation of FLIP Is divided Into two distinct procedures, a 
MATCH and a CONSTRUCT, The MATCH procedure matches the Input list 
against a pattern, which is a list of elementary patterns. A 
match occurs If each of the elementary patterns matches a segment 
of the list structure, and If these segments, taken In order 
comprise the entire list* The output of the match Is then a 
parsing of the list structure with respect to the pattern. I.e. a 
list of the segments that were matched. 



CI) Since the entire FLIP package must be resident In core (In 
Its eon.pilcri form It occupies approximately 3500 words of binary 
program storage, or about two-thirds of the binary program 
storage ovMlphla) the user may wish to familiarize himself with 
FLIP ami uv- It In other contexts. Also, since EDIT merely calls 
FLIP as n subroutine, the user may then wish to use so^o of the 
more soph I St tea tad features of FLIP In editing. Howevrr, for most 
vpurposc-, the f I vo elementary patterns and two elementary formats 
n^tcd here should suffice. 



The elementary patterns adopted from COM IT AR r - 



r; i 8 



: 

; 



5 whl ch matches any segment I ncludl ng the null 

segment; 



Sn 



where n Is a number* matches a segment of length n; 



n where n Is a number, matches a segment equal to that 

(notched by the nth elementary pattern, (counting from the 
beginning of the pattern); 

x where x Is any sexprcsslon / matches a scament of 

length 1 equal to X* 



Thus If the 
$)/ a match 
match! ng (cl* 



I nput 
would 



the 



1 1st were (a b 
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2 matchl ng (c). 



c c d) and the pattern ($ SI 2 
first S matching (a b), the $1 
and the % matching (d). 
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hesti elementary patterns are extended considerably, 
be the result of a computation/ x may he a variable or 

ton, and may be treated as matching a segment of length 

ng of the single clement x, or a segment equal to x, so 

example/ (a b c) may match either the segment ((** b c)) 
in the list (x y (a b c) d e * b c f). addition, 

predl cates may be associated 

tc. However/ as stated above/ 

hose four patterns/ plus one 

111 usually be ample. 



with each elementary 
for the purposes of 
add 1 1 tonal elementary 



2.1 4 2 The CONSTRUCT feature 



The CONSTRUCT procedure 
the output of MATCH/ and 
formats. As In CO HIT, we 



constructs a now list structure using 
a format/ which Is a list of elementary 
al low: 



n 
matched 



where n Is 
by the nth 



a number, 
elementary 



s a segment equal 
pattern of the match; 



to that 



which Is equal to Itself. 



These sre used to perform the necessary changes/ Insertions, and 
deletions which make up editing. For example/ to find and delete 
one of three repeated sexpresslons In a list one would use as a 
pattern (I.e./ as Input to match) (S SI $ 2 $ 2 $) and a$ a 
format (I.e. as Input to construct) (1 2 3 b 5 7), To chance the 
first CAR after the atom MEMBER to COR one matches with ($ MEMBER 
S CAR $> and constructs with (12 3 COR 5), 
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2,2 Hdlrlng - A simple example 

The usual procedure for editing involves a call to the function 
E0tT / specifying the structure to be edited. EDIT listen for 
Inputs from the teletype and performs the corresponding 
operations until the user Indicates he Is satisfied. Some 

variations of this procedure ^re discussed In section 2*fc* 

EDIT achieves the features of combining a context editor with 
that of a list structure editor by dealing with objects that have 
fepJJl the linear properties of text and the structural properties 
of LISP. This Is done by "flattening" the list structure which 
Is being edited Into one single list of atoms/ substituting the 
spec! ol atoms L* for left parentheses/ and R* for right 
parentheses, (2> These are handled specially by the elementary 
pattern $8n, (the mnemonic B stands for balanced string)/ which 
Is described below. Otherwise/ all atoms are treated Identically. 
This moans that one can remove and Insert parentheses/ by 
removing and Insert I ng L*'s and R*'s/ or one can remove and 
insert entire structures. (5) The user need not worry about this 
f 1 at to* Inx process as all Inputs are automatical 1 y flattened, and 
conver.Hy, output is printed in unflattened mode. 



(?) Fo*- ^r.lists, the atom P* Is used - e,g, (A3 . C) becomes 
(L* A :- v R*)/ ((A . B) CC . D)) becomes (L* L* A P* 3 R* L* C 

?* R+ Rt). 

(S) MviuH the resulting list not hove balanced parentheses/ this 
would be ietectcd when the user wished to leave EDIT by the 
function UNFIATTEN. An error message would then be printed and 
the us r .muld be allowed to correct the parentheses errors. 



fl > 



PAiic iO 



Wc present a simple example to Illustrate these points before 
discussing ithe $Bn feature and the operation of E01T* 

Suppose I he definition of F00 Is (LAMBDA (X) CPROC NIL (COND ((EQ 
(CAR X) -1) (RETURN NIL))) (SETQ Y (PLUS (Y CAR X))) (SETQ X (CDR 
X)) (GO STA^T) )K 



There ;tr- ; several mistakes which we might like to correct. Let us 
■urselvcs for now with merely adding Y to the argument 



list In F00 and labelling: the COND statement. 



■ 



"cons" has too many other meanings 



ell t (foo expr nl 1 ) 
(nrtch S x S) 
(form 1 2 y 3) 
(match S nil O 
(form 1 2 start. 3) 
slop 

FOO value of EDIT 



We could perform both chances In a single mar-h and construct If 
we desired. Also, wo could check our Intermediate result? by 
examining the output of the matches. 



nd : t (foo expr nl 1 ) 
:.; Lch S x $ nil S) 
(cons 1 2 y 3 k start 5) 
(match $ prog $ cond S) 
1 

(LAMQDA (X Y) ( refers to last; 

3 

NIL START ( 
stop 

FOO value of EDIT 



i^tch 



urn 



Note that the segments match above 
clcniQfri ary pattern In the match do not 
ssxpfc^slo/is* This Is because "( M and 
to the f 1 at ten I ng procedure. Thus we 
I ndl vt dual par en theses * For example to 
CAR X>) > to (SETQ Y (PLUS Y (CAR X))) we 
pit 1'* y $) (cons 1 2 k 3 5)* However, 



by the first 
appear to be 
)" are special 



and third 
legl t Imate 
atoms due 
manipulate 
(PLUS (Y 



hand! lng 
below. 



can actual ly 
isnse (SETQ Y 
could perform (match $ 
for more sophisticated 
of balanced strings, we need the $Bn pattern discussed 



2*3 italditclns Parentheses 



In COM IT one usually thinks of the elementary patterns In terms 
of the segments, that they ul tlmctel y match, without regard for 
the sequential nature of the matching process. This has been 



encouraged here too unt I 1 now, but for the next el ementary 
pattern It Is better to think of an elementary pattern in terms 
of f tr. effect on the partial match. For example, $n appends to 
the partial match a ltst consisting of the next n Items In the 
unmatched structure and passes the remainder of the unmatched 
structure together with the new partial match to the next 
elementary pattern. Similarly, $Bn starts from the beginning of 
the list structure that has not yet been matched, and works out 
'n IulUi directions until n pairs of matching parentheses arc 
found. Th'S segment I s then what SBn matches. Any other 
elementary patterns that now have their segments Included in that 
matched by $Dn vanish, and any portions of bordering segments 
Included In the S3n are deleted from the bordering elementary 
patterns. In effect, what the $Bn pattern says Is "I didn't 
really want to match with CAR but with the list containing the 
list containing CAR; however, since It was easier to look for the 
CAR first and then go back and find the correspond! ng structure, 
I now have to make the necessary changes In the partial match." 

To return to F00 which was (LAMBDA (X) (PROG NIL (CONO ((EQ {CAR 
X) -1) {RETURN NIL))) (SETQ Y (PLUS (Y CAR X)>) (SETQ X (COR X)) 
(GO START) )) / If we performed (match $ car Sb2 $) and asked for 
the result of the match, the following would be printed: 

. L 

(LAMBDA (X) (PROG NIL (CONO ( 
(EQ (CAR X) -1) 

(RETURN NIL))) (SETQ Y (PLUS (Y CAK X))> (SETQ X (COR X)) 
(GO START) >) 

Note that the original segment matcned by the S has been altered, 
and that the segment matched by CAR has completely disappeared. 
Also the final S begins after the right hand side of the $B2* 

Similarly, (match 5 plus $ car Sb3 $) gives 

(LAMBDA (X ) (PROG NIL (CONO ((EQ (CAR X) -1 ) (RETURN 
NIL))) 

(SETQ Y (PLUS (Y CAR X))) 

(SETQ X (CDR X)) (GO START) )) 

Note that both the plus, the second $, and the car are gone. 

This method for locating structures Is much more efficient than 
performing (match $ (setq x (plus (y car x))) $), which would 
yield the same match. The latter requires many costly false 
Starts, I . e* the program will try for a match each time a "(" Is 
encountered. In addition, the user Is less likely to orr uslnn 
tho J 'In p-ittern than explicitly writing the structure, which may 
I>q vcpv romnlox. 
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2,4 Operation of Edit 



EDIT Is 
is atom 
edi ted 
Is a co 
EDIT op 
I ts vol 
I nputo 
the ope: 
occurs. 
Utter 
error o 
descrl b 



C 
Vti 

nv 
or 

LIC 



: S 



fu.ictlo 
C9IT o 
"on on 
en I en t w 
at OS on 

i v no rn 
Jin the L 
lions In 
■i exl C I 
r.e, I t t 
.irs, the 

below. 



n of three 
peratcs on 

the prope 
ay to edit 
VAL direct 
al exl t oc 
eletype, 

CHANGES $ 
s achieved 
hen wal ts 

effect 1$ 



variables, NAME VAL CHANCES. If VAL 

(GET NAME VAL)/ and restores tho 

rty list of NAME when through. (This 

functions or APVAL'S.) Otherwl se, 

ly and returns the edl ted version as 

curs, IF CHANGES Is NIL, EDIT accepts 

If CHANGES Is not NIL, EDIT executes 

cqucntlal 1 y, untl 1 el thcr an error 

, or CHANGES Is exhausted. In the 

for I npu ts from the teletype. If an 

the same as when QUIT is Input as 



2,^.1 Basic Commands 

EDIT responds to the following 

(match , .. ♦) 

(form ,...) 

n 

match 

x 

quit 

Stop 



commands: 



I 



The first two of these commands cause changes to be made, the 
next three are requests for Information by the user, and the last 
two refer to termination procedure. 

The match command causes the current match tc be replaced by the 
results of the net/ match*. The form convnaad causes the old value 
of the structure being edited to be replaced by the result of a 
construct, (If errors occur, messages are pri nted and nothl ng Is 
changed.) Until a new match is performed, the old Is left 

Intact, nnd similarly, the latest value of the edited structure 
remains until one performs a successful construct. This has the 
effect of giving the user a slight backup. I.e. a mistaken match 
or construct Is not completely rul nous, 

X cauuGn the current value of the structure being edited to be 
printed. Similarly, MATCH will cause the entire current MATCH to 
be prlnccd, while N causes just the Nth segment of the current 
match to je printed. (The user can Interrupt these processes If 
he wi Sh.;r>) « 



QUIT y .*rts the editing operation 
value NIL, Mo changes are made to 
the system In thl s case. 



and causes 
any of the 



EDIT to return the 
list structure of 



STOP is the normal ex I t. The structure being edl ted Is 
unflaUcnod. (If the parentheses do noc count out, a message Is 
printed find FDIT continues, allowing the user to correct the 
parentheses.) If VAL Is atomic, EDIT redefines the property list 
of NAM!:, and punches out a call to OEFLIST; DEFLIST (((NAME 
edited structure)) VAL), (4) The value of EOIT Is NAME. If VAL Is 
not atomic, the value of EDIT Is the edited list structure. In 
both cases, It also punches In LISP OUTPUT a record of. all 
changes made under the format: PRINT (EDITED NAME ((MATCH .,..) 

(FORM ) ... STOP)). Thus by loading LISP OUTPUT, the editing 

history will be printed out, and any functions or . other 
properties that were edited will be reset to their new value. 



(it) In the case where VAL Is EXPR, EDIT also puts the new 
definition on the property list of the atom EDITED under the 
property NAME. This Is for use In conjunction with UPDATE, 
RELOAD, and REDEFINE as described below. 



*i 



*. t 



* 
■ 



2.U.2 Tn-j EVAL Feature - Defining New Operations 
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If the operation/ 0, Is not understood by EDIT, (EVAL (ALIST)) 
Is performed and the value printed. Since EDIT and EDIT1 are 
EXPKS, it would be possible for 0, as a pseudofunctlon, to alter 
the valuq M some of their arguments, e.g. CHANGES or X. This Is 



a way for tlio user to define new 
discuss Mr: this further, we must 



edl ting conventions. Defore 

clarify the role of E0IT1. 



EDIT i 5 * function of three var I abl es, as I nd lea ted above. 
Whether *t is operating as a subroutine or accepting Input from 
the teletype. It passes each operation to EDIT1 along with the 
current value of the structure being edited, the last match, and 
the alist. (5) It then resets the match and structure from the 
output of ED1T1, and either exits If EDIT1 outputs STOP or QUIT, 
or continues In the manner described above. 

EDIT1 Is a function of four arguments, X M A. Is the 
operation to bu performed, e. g. (match % car $), stop, etc. X Is 
the structure being edited, M the last match, and A the alist. 
The value of EDIT1 Is (F00 X M), where F00 Is either NIL, STOP, 
or QUIT. EDIT resets Its arguments from X and M, 




(5) The alist Is used In conjunction wtlh the naml 
evaluation of free var I obi es In the match 
procedures themselves. See section 2.6.3. 



ng feature and 
and construct 



r 



. 



** , 
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ror examr-' * to replace oil X's by Y's one might typo (REPLACE X 
Y) hovln; "^ncrt REPLACE as (LAMBDA NIL (PR0G2 (SETQ X (SUBST 

(CADR 0) (u\OUR 0) X)) T)>. More General i y, If REPLACE Is to 
replace .in arbitrary structure, one could use E0IT1 In Its 
definition, r,n. (LAMBDA NIL (PR0G2 (SETQX (EDIT1 (LIST (QUOTE 
CONS) 1 UtlDDR 0) 5) X (CADDR (ED1T1 (LIST (QUOTE MATCH) (QUOTE 
$) (CADR 3) (QUOTE $)> X M A)) A)> T)). (6) Thus this feature 
can be uued to nest macro's and to build up a complex vocabulary 
based on earlier defined operations* 

Another Implication of the EVAL feature Is that It allows the 
user to cxccrclse program control over EDIT when using It as a 
subroutine. I.e. to make the editing process conditional upon the 
results of previous editing and/or computations* This can be done 
by us Ins th* EVAL feature to reset the variable CHANGES from 
which Ers; ; -;ak-M Its Instructions, For example. If CHANGES were 
Initially C(FOO)), EDIT would submit to EDIT1 the single 
operation (F00) which would be evaluated against the allst* F00 
could In turn perform an editing operation and then reset CHANGES 
so that the correct operation would be performed next* 
Alternatively, F00 could Itself take over the control of editing 
by calling EDIT as a subroutine from Inside Itself* 



(6) i. Ti-..; reason for the PR0G2 Is merely to avoid having the 
entire structure typed out when EDIT1 does the EVAL* 

2. The CADR and CADDR are because the actual value of Is 
(REPLACE X Y). 

>. It i* rr:,e that the latter definition of (REPLACE a b) would 
n Qt chen^e .ill a to b, but only the first occurrence* To perform 
an operation of the former type/ we utilize the FLIP repeat 
feature in section 2.<*«3* 



hi* 
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2***3 FLIP Repeat 

Certain taks require a repeated application of a FLIP rule. This 
Is especially true In editing* Examples of this type of problem 
are delete the segments between every A and B, change the first 
CAR after every MEMBER to CDR, etc* These could all be done by 
reapplying * 'ie same MATCH and CONSTRUCT rule until the MATCH 
falls, but t..ls Is both tedious and Inefficient/ since the MATCH 
would start from the beginning of the list sructure each time. 
FLIPR *nd FLIPRI are two functions Included In the FLIP package 
to provide some of the features discussed above* 



FLIPR Is a function of four arguments/ 
value Is (FLIPRI WS PATT FORM REP MIL) 



WS PATT FORM REP. Its 



FLIPR1 Is a function of five arguments/ WS PATT FORM REP A. WS Is 
the structure belnf: operated on, PATT Is the pattern used by 
MATCH/ FORM Is the format used by CONSTRUCT/ REP Is a format 
which designates what structure the pattern PATT should be 
reapplied to, and A Is the alist. 



FLIPR1 first matches 
and saves the resul t 
wl th REP Is used for 



WS with PATT, It then constructs with FORM 
The construct of the result of the match 

the next match with P*TT FLIPRI constructs 
with FORM again and appends the rcsu 
been saving, REP Is then used again 
When the match ultimately falls, the 
Is appended to the saved results. CDR 
this structure* CAR of Its value Is 
succeeded. 



t to the structure It has 

and the process cont I nues. 

IIsl structure that Is left 

of the value for FLIPRI Is 

the number of times the match 



Thus, to delete the segments between every A and B, PATT should 
be (S A 5 Q $)/ FORM (1 2 li ) , and REP (5)* Let us trace the 
Operq-iC-i of FLIPRI for WS <D E F A X Y G B C A R W B M M). 



F) (A) (X Y G) 
gives (D E F A 



The flij -iatcb gives ((D E 

M))* Cor .tructlng with FORM 

A R H ':■ .: a). Matching again yields 

Constructing with FORM gives (C D A 

(D E F A ">) giving (DEFABCDA 



(B) <C D A R W B M 
3), and with REP (C D 
(C 0) (A) (R W) (B) CM M), 
D), and this Is appended to 
B) whl ch I s saved* The match 



with t:i "1 Falls this time/ so the final result Is (2 E F A 
DAP-:.). 



Similarly to change the 

us« \* :-;em*ier s car s) 



f I rst CAR after every 
(1 2 3 CDR) and (5). 



MEMRER to CDR one 



For an < 
segmerv 
rope 
2), P.r 
ro*ul ■ 



:am?le of a case where REP was not 
" Che match/ cons 1 dor the problem 

i^ In n list. Hero, match would be ($ 

I 5)/ so that If WS were ( A B C E B 

■iibc (Aocn e xr ii), 



merely the last 

of removing al 1 

Jl 1 2 $), FORM (1 

X A X D F G)/ the 



SlnCu Fl 11*11 and FLIPRI wore written primarily for 
h:ivc also boon Included In the vocabulary of EDIT1 



crtl ting/ tliL*y 
To ■•peclfy a 
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FU Pit operation, one types (fllpr patt form .ep). E0IT1 then 
performs (ru* J Rl X PATT FORM REP A), and replaces the current 
value of the edited structure by (cdr result) (unless there Is An 
error ;.i which cose no change takes place)* It also prints out 
(c#r r'. i It), which Is the number of times the match succeeded* 
The last match Is not harmed so that the user can recover from an 
Incorrect fupr command* 

If REP is not present, EDIT1 uses a format which obtains the 
segment corresponding to the last $. E0IT1 also outputs how many 
times t:i<: match succeeded. 2.5 Updating Files 

UPUAf:: *s a function of one argument, NAME. The purpose of UPDATE 
Is to create a new file Imoce corresponding to the file with 
first iidflio NAME, (7) and containing all of the latest definitions 
of the functions defined In this file, without changing the 
status of functions In core, even where some of the edl ted 

functions have been compiled without previously writing out their 
new definitions. UPDATE uses the subroutines FIND, REMEX, SUDR, 
REOEFIUE, RELOAD, OUTFILE, Each of these play the role obvious In 
their definition. We give their definitions before describing how 
UPDATE works. 

2.5.1 FIND 

Function <Sf one variable/ X. Searches INLIST until It finds file 
with fii'^t name X, of file with function X defined In It, Value 
is corresponding entry In INLIST, e.g. (X DATA (F00 FIE FUM)) or 
(FCO DATA (FIE X FUM)). If X Is not found, an error occurs. 

2.5.? nr^-x 

Functus of two variables, X Y. IF X is atomic, REMEX uses (CADOR 
(FIND ::.) as the functions it operates on, otherwise It operates 
directly >n X. If Y Is NIL, REMEX rerroves the property EXPR from 
all functions which are both EXPRS and SUBRS. If Y 1$ *T*, It 
removes the property EXPR from all functions regardless. 



(7) NAME can also be the name of a function, In which the file In 
which NAME Is defined is used. See definition of FIND In 2.5.1. 



2.5.5 SUBR 

Function of one variable/ X, Returns list of all functions In x 
which arc SUORS and only SUBRS. 

2*5.'* REDEFINE 

Function of one variable, X. X Is a list of functions. REDEFINE 
sural 1 tfio atom EOITEO to sec if any of the functions named In 
X ar>p* there, and If so it redefines them. Its value Is all of 
those Evictions In x which did npt appear on EDITED. 

2,5.5 RLLOAQ 

Function of one variable/ X. Its purpose Is to reload the flic 
SpacTHi ' \ y X/ I.e. whose first name Is (CAR (FIND X)). It first 
;ciow :; of the EXPRS by using REMEX. It then calls LOAD/ 
followed by REDEFINE, to aet the latest definitions/ and returns 
the value of NIL. 2.5.6 OUTFILE 

Function *>f two arguments, X Y. X Is a list of functions. OUTFILE 
delete:', the file Y DATA and writes a now one using the 
defini n-5 of the functions in X. which are assumed to bo EXPRS. 



■ 
Some Oi : <he above functions/ notably FIND, REMEX, and RELOAD/ are 
useful by themselves: FIND/ to locate the name of a file which 
contal ns a parti cular function, or the functions defined in that 
file; REMEX, In case one has loaded a file in which some of the 
functions have previously been compiled and It Is desirable to 
have them operate as SUBRS; and RELOAD, to reload a large file 
where one may not have the room to fit It In core If LOAD Is 
used. However, these functions are primarily Intended to be used 
In conjunction wl th UPDATE. 

The operation of UPDATE can now be described. First UPDATE 
determines whether a RELOAD is necessary by uslnr. SUBR and 
REOEFrJF. If all of the functions In the Indicated file arc 
prescnl in core In EXPR form, either on their property lists or 
on th-* :> party list of EDITED, no RELOAD is done. UPDATE t;ien 
uses 0'T"lLE to write out the function definitions, REMEX to 
res tor . -iy of the SUBRS that were chanced to EXPRS In the event 
a RELOAD V ;as necessary, and finally goes through EDITED and 
remove ly of the functions that appeared there that were 
written j£ by the call to UPOAiE. Thus EDITED will always 
contal* the late st definitions of functions where they differ 
from tli* definitions on the disc (unless of course the user does 
off lli<c waiting)/ and one can EDIT and compile unl 1 1 the final 
version ■> produced and not perform an JPDATE until that time. 
Used in Jiis fashion UPDATE Is as economical as the CTSS command 
M ed", especially if one were to consider the time necessary to 
load the LISP system. 

* 



r^'jt is 
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as all o 
the FLIP 
supply t 
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so that 

functions 

ser could 

necessary 

Jons themselves. The 

r with the details qf 



we have been descr I bl ng Is mercl y a 
that make It easier to use FLIP for 
very easily write his own EDIT usinj; FLIP 
components for editing are contained In 
purpose of this section Is to 
the operation of FLIP as they 



tins so that he may either design his own editing 
utilize more of the power of FLIP In using the EDIT 
ted here. This section Is designed to supplement 
should be read In conjunction with It* 



2.6.3 Special FLIP Functions for Editing 

Four functions have been added to the FLIP package 
for editing These are FLATTEN, UN FLATTEN, F PRINT, 
FLATTf --nd DOLBHF are used by FLIP; UNFLATTEN and 
provided for the user (EDIT uses them)* 

FLATTEN Is a function of one argument/ X. If X Is an 
value of FLATTEN Is (X), Otherwise, It Is (flattened 
x), where the flattening procedure has been described 



specif leal ly 

and DOLBNF. 

FPRINT arc 



atom, the 
version of 
previously. 



UNFLATTEN Is a function of one argument, X. If X does^ not 
vnflatten correctly, an error occurs/ and a message contalnlnc 
relevant Information I s printed (e.g. 5 RIGHT PARENTHESES 
MISSING). Otherwise, the value of UNFLATTEN Is the unflattened 
structure. 



FPRINT 1 u used to print a flattened structure In an unflattened 
formal. It does not actually unflatten the structure and so can 
be us A -J on lists which do not balance out. Thus FPRINT applied to 
<L* A '; L* C P* D R* E L*) will cause (A D (C , D) E ( to be 
printed rmd return the value of NIL. 



OOUUF U the funct 
I n 6nfi '\o:\ 2*3. It 



on corresponding to the 
s also di scusscd In the 



$0n pattern 
FLIP memo , 



described 



i 



2.6.2 Editing Modes 



EDIT 
them 
mode 



Operates with FAST, QUOTE, and EOIT set 
r original value when It exits.) 

. We c've a brief description here* 



to 
i s 



he 



to *T*. ( 1 1 

The effect of 



resets 
these 



described In memo 
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FAST Is used to make the S operate more efficiently. The only 

time thM should be set to *T+ Is in some cases Involving the use 
of pi * r icotes where It Is necessary to maintain close 

survol i ! .ice over the action of DOLF, the function that performs 
the $ * ,-ehi tn editing/ this seldom arises. 

QUUTE in.oi^is the translator chat all list structures It cannot 
ir.v.icUl . t-.;ly Identify are to be treated as quoted scxprcssions 
Instca-i '* nubpatterns to be translated. Thus If QUOTE Is MIL/ In 
(A U (^ ' ^). (C 0) will be translated as a subpnttern, as will 
C) $ : fn <$ A $ ($1 S D $)). If QUOTE Is *T*, neither 

i^iil be translated* (To use uu!>patterns when QUOTE Is *T*, one 
write* (S* X) , where X is to be evaluated to the subpnttcrn. In 
the rti-'V- MSO# one would write (5 A 3 % <$* (QUOTE ($) $ D 

EDIT n >- be *T* during editing It Is used to Inform the 

trans! ■■ ror patterns that all sexpressions arc to be flattened 
and tr t\ as segments/ an! to Inform CONSTRUCT Ehat the value 

of aP - 1 i:S and FORMATS arc to be flattened before Inserting 

them [i.Ll the list structure being; assembled. 

Thus, In order to edit, a user must set EDIT to *T* (using CSET), 
and should probably set QUOTE and FAST to *T*. The rest will be 
handled automatically by FLIP. Of course/ If the user uses the 
function EDIT, this will all be done for him automat I ally. 



2.6*5 The Segment-Item Distinction 

In FLIP, a list structure can be specified by Itself (an 
sex pro: il-in)/ In terms of a segment notched by a previous 
elcmonl pattern (a mark)/ or as the result of a computation 

involvl i ^expressions specified as above (a form)* However, 
specify? 1 : 3 list structure alone is not enough* It Is necessary 
to Indie :o how this list structure Is to be used/ I.e. as a 
scftniun; os on item. This problem was touched on In section 

2.3*1, i" conjunction with the MATCH feature. In editing/ one 
usually s-juelflos the list structure directly In the MATCM so the 
difficult/ does not arise here. However/ it can cause serious 
compl ic »'. Ions In the CONSTRUCT, especially where the naming 
feature i-i used. We wl 1 1 attempt to clarify this distinction 
first In i non-editing framework, i 

Suppose the list being operated on Is (a b c (d e) f g). If we 
match with <$ c SI $) and construct with (1 Cx y *) *»), the 
result U (n b (x y z) f g), which Is what wc expected. Here th<: 
likirfcs I «mi-I h Iwive been treated as segments, nntl the soxprcsslons 
(x y / >-!■- iin 1 1 em. 

Unless *i ifled othorwl so," FLIP always assumes m.irk& refer to 
sceiii^nl , and scxpr ess Ions and forms refer to I terns. 1<> sped i y 
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an I ter.i In FLIP, we use the symbol *, and for servients the symbol 
**, Thi". ;1 (x y z) 3) Is Identical to ((** 1) (* (x y z>) (** 
3)). Il< ! :<2 constructed Instead with <(* 1) {*« (x y z)) (* J)), 
the ri*!.-.lc would hove been ((a b) x y z (f g))» The value of the 
mark 1 still (a b) but here it has been inserted directly 

since il *s being treated as an Item. Similarly, the value of the 
sexpt'i :• ■" I m n (x y z) was Inserted as a segment. 

Usual 1 y the I ntcrpretaton taken by FLIP Is the desired one. 
However, vhen using the nomine feature care must be taken. The 

namln' fiture Is a device provided to bind the value of a var 
(i.e. -■■* ^expression, a mark/ or a form)* to the name of a 
varivM * on the allst. It Is discussed In detail In the FLIP 
memo . ; 

For example/ If at one point we matched with ($ c ($set foo 1) SI 
$) usin^ the list (a b c (x y z) f p.) as above/ the value of FOO 
on the allst would be (a b) corresponding to the value of 1* If 
we later performed a match ($ f $) and a construct (1 <= foo) 3)/ 
the result would be (a b c (x y z) (a b) g) # Here the value of 
the for:;i Woo) was treated as an I tcm/ exactly as the value of 
any other form would be* There Is no distinction made because o^ 
the fact Mmt (a b) originally was the value of a mark. To Insert 
(a b) as a segment In this context/ we would have to construct 
with (? (** (= foo)> 3). 

2.6JI The Operation of CONSTRUCT 

COttST'J T operates differently in EDIT mode than otherwise. The 
operation of CONSTRUCT Is as though the value of *;he EfVAR or 
FORMAT *r question were first flattened and then/ II treated as 
an I t'-v ^ rspp^nded directly to the structure being assembled/ or 
clso :: sndod minus the first L* and lost R* if treated as a 
ftafiiiHtt.',. ihus If we matched (LIST X Y (LIST Z FOO) A B) with (S 
foo Sh! ;; and constructed with (1 (CAR Z) 3)/ the value of 1 
would U: (t* LIST X Y) which is flattened to (L* L* LIST X Y R*> 
with (L* LIST X Y) beinG appended, since marks are treated as 
segments. The value of (CAR 2) is (CAR 2), flattened to (L* CAR Z 

R*) and appended/ etc, (8) 

* 

The rationale for this procedure is that the value of 1 (L* LIST 
X Y) is Its value In a noned! tl ng, sense. We have to flatten this 
value to be consistent/ and this produces (L* L* LIST X Y R*) . 
Similarly, If we matched with <$ foo $bl ($sct ugh 2) $)/ then 
UGH would be bound to (L* LIST FOO 2 R*) on the alist. If we were 
not oporatinc with flattened structures, the value of UGH would 
have been ((LIST TOO Z))/ since the SB1 matches a aflgflftJlS 
CCfi&lsMns of the sJjiftlfi I tq^ (LIST FOO ZK Accordingly/ If one 
constructs with <o b (* foo) c d)/ one would Ret (A U {(LIST FOO. 
Z)) C I))/ therefore In the editing environment/ one obtains (A R 
L* L* LIST FOO 7. It* R* C D), To Insert (LIST FOO Z), one 
constructs with in b (** (» ui;h)) c d). 
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?.6.5 u* In* Other FLIP features 



All of features available in FLIP con be used for editing* We 

have to; ■ I on the naming feature above. It can be useful for 
savin,* i-tiiKiures which will !><i deleted. For example, to replace 
(LIST X CIS! Y) (CONS (GET X Y) (F00 X)) (LIST Z)), by (CONS 
(GET X Y> (FOO X)) within a larger structure, one could match 
with (5 Poo *>b2 ($set ujjh 2) Sbl 5) and construct with (1 (** (■ 
ugh)) 31. loto that the Sbl absorbed the $b2, but after It was 
bound I; '!« 

(Jrtior features of possible interest for editing arc the use of 
nGR;iti*YJ? numbers for marks to count backwards from the present 
posltiji tar for consruct 1 n^/ to count from the end of the moth), 
turftlns VCbfcn (or In the case of constructing, to count from 
the end ■*' the match), turning TRACE on to sec how the match Is 
working, irnlns SPEAK on to see the translation of the patterns 
and for ■, uslnc predicates, etc. AM of these are discussed In 
the F L l '^0 and Che same treatment can be applied directly to 

thtf edi i * ; unvl ronment* 



(8) Actually, FLIP does not use append, nor does It flatten a 

structure that Is already flattened* Similarly It does not put on 

an L* and R* only to take them off again. This Is presented 
merely as a convenient way to visualize the process* 
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3* Append i x 

3*1 Lo;» ' n ; procedures 

Hopefully all of the relevant files will be In public. If not 
please notify Warren Teltclman, Rm« 815» 

3.1. 1 Bili'AK 

BREAK v.nt^lncd In the single file 3REAK DATA, BREAK, UHHREAK* 

BREAKLl.., UUBREAKUST moy all be compiled. If desired. 

3.1,? *«■■ r 

EDIT, UPDATE, OUTFILE, etc, , ore all contained In the single 
file EDH OATA. RELOAD, 0UTFILE1, UPDATE, REMEX, SUf*R / and 

REDSFlfJ!: nay be compiled, FIND moy be compiled if INLIST Is made 
COMMON. riUTFILE may be compiled if Y Is mode SPECIAL, Do not 

forcot to load FL I P, 

3.1.3 FLIP 

FLIP cov^s in 9 flies of approximately 3 tracks each. These arc 
FLIP DATA <^nd FLIP1 DATA through FLIPS DATA. To load, merely load 
((FLIP)) which loads and compiles FL I PI through FLIPS, The load 
time 1;. ^proximately 60 seconds. FLIP prints out the file nanes 
as it f I ii i situs loading them. 



■ 



5.2 BREAK 

(BREAK 

(LA"RDA (FN MIEN WHAT) C PROG (TYPE DEF) 
(COUP 

((SETQ DEF (GET FN (QUOTE EXPR))) (SETQ TYPE 
(QUOTE EXPR))) 

((SFTQ DEE (GET FN (QUOTE FEXPR))) (SETQ TYPE 
(QUOTE FEXPR))) 

((GET FN (QUOTE SURR)) (PROG ( -X «Y) 

PI (PRINT (COHS FN (QUOTE (IS A SU*R ••• 

NEED AROS>)>) 

(COND 

((NULL (SETQ *X (NLSETQ (RDFLX)) 
)) (GO Pl))> 

(NCONC (SETQ «Y (GENSYM) ) (CDR FN)) 
i (SETQ TYPE (QUOTE EXPR)) 

(SETQ OEF (LIST 
NIL 

(GAR *X) 

(CONS *Y. (CAR •X)))))) 
((GET FN (QUOTE FSURFI)) (RETURN (LIST 
Ffl 

(QUOTE ****FSUtm*«**)))) 
: , ((OEFI.IST (LIST 
(LIST 
FN 
(LIST 

(QUOTE LAMBDA) 
(QUOTE (L A) ) 
(LIST 

(QUOTE BREAK1) 
NIL 
T 

(SETQ l)EF (LIST 
. FN 

(QUOTE (UNDEFINED)))) 
WHAT)))) (QUOTE FFXPIO) (RETURN 
DEF))) 

(COND 

((EQ (CAADDR OFF) (QUOTE RREAK1)) (RETURN (CONS 
FN (QUOTE (ALREADY BROKEN)))))) 
(DEFLIST (LIST 
(LIST 
FN 
(LIST 

(QUOTE LAMBDA) 
(CADR DEF) 
(LIST 

(QUOTE BREAK1) 
(CADDR DEF) 
WHEN 
(LIST 

FN) 
WHAT)))) TYPO 
CM-TURN FN)))) 
NIL 



(HHFMEftK 
r (LAimW. (I'M) (1*1100 (TYPf: DEF) 

cr.Oim 

usetq n?F (get fh (quote expr)>) (p^tq type 
fi (quote f.::p r. >) 

((5C.TQ DF.F (GET FN (QUOTE FEXPR))) (SETQ TYPE 
i. (QUOTE FFXi'i:))) 

(T (RETURN (CONS FN (QUOTE (IS NOT BROKEN))) 

))) 

(conn 

(<EQ (CAADOR DEF) (QUOTE BREAK1)) (RETURN (CAR 

(DEFLIST (LIST 

(LIST 
FN 
(LIST 

(QUOTE LAMBDA) 
(CADR DF.F) 

(CADAOR (COR OFF))))) TYPE))))) 
(RETURN (CONS FN (QUOTE (IS NOT BROKEN))))))) 

. (BREAK1 

(LAMBDA (I. A) (PROG C*X) 
(OOND 

((NULL (SETQ *X (EVAL (CADR L) A))) (RETURN 

j (EVAL (CAR L) A))) 

((NULL (EQUAL *X (QUOTE (NIL)))) (00 RO))) 
(PRINT (APPEND (QUOTE (CRACK IN)) (CAODR L))) 
(conn 

((NULL (CADOOR D) NIL) 
f~\ (T (PRINT (EVAL (CADDDF. L) A))>) 

(00 R5) 
BO (PRINT (APPEND (QUOTE (BREAK IN)) (CADDR L))) 

(conn 

((NULL (CADOOR L) ) NIL) 
(T (PRINT (EVAL (CAODDR L) A)))) 
Rl (00110 

((NULL (SETQ *X (NLSETQ (RQFLX)))) (GO BO) > 
(<EQ (CAR *X) (QUOTE QUIT)) (ERROR (CADDI1 L) 

■ )) 

((FQ (CAR -X) (QUOTE STOP)) (GO R3>) 

«EQ (OAR -X) (QUOTE RETURN)) (GO B2))) 

(COtm 

((AND 

(SHTQ *X (ERSETQ (EVAL (CAR -X) A))) 
(NLSETQ (PRINT (CAR *X)))) (GO HI))) 

(GO no) 
B2 (conn 

((OR 

(NULL (SETQ *X (NLSETQ (RDFLX)))) 

. (NULL (SETQ *X (ERSETQ (EVAL (CAR «X) A)) 

))) (GO RO) )) 

(GO B'l) 

113 (CflND 

((NULL (SETQ *X (TRSFTQ (TVAI. (CAR L) A)))) 

^ (00 «0)>) 

tll| (I'll INI (APPEND (QUftTI (VAlUr 01)) (CAI'IH! |)>) 

(conn 

((HULL (NLSETQ (PRINT (CAR *X)))) (I'UINl (H»"'IL 



OK)))) 
NIL 



(RETURN (CAR -X))))) 



(".RF.AKLir.T 

(I.AfinA ('•) (nAi'LiST X (FUNCTION (LAM ft DA (X) (rrfak (CAR 
x) t rirt))>)>) 

(UNRftHAiU iit 

(IAI'1-OA (') fMAPLIST X (FUNCTION (LAIinnA (X) (UNRRKAK (CAR 
X>)))))> 

(TRS- "f<J 

(».A"fi"A (i > (cmmnscT (car u ioooooooo t a>)) 

(nlk«:tq 

(lamuda (■ a> urrousct (car l) ioooooooo nil a))) 



(ALIST 

(LAMIW A) A)) 

NIL 



5.5 edit * 

* 

(rniT 

(LAMHPA (NAME VAL CHANGES) (PROG (-F *l\ *E -I *X »A -Z) 
(SETQ -F FAST) 

\-< (setq *n auo.c) 

' rra .p. edit) 

(SETQ • ! (CONS NIL HI L>) 

(C3ETQ PAST T) . . 

(OSETQ QUOTE T) 
.CCSGT0 EDIT T) 
f" r T<l »X (LIST 

(FLATTEN (COND 

((ATOM VAL) (GET NAME VAL)) 
(T VAL))) 
NIL)) 
(SETQ *A (LIST 
(LIST 

(GENSYM)))) 
(COND 

(CHANGES (GO Ed))) 
El (conn 

((SETQ *Z (NLSETQ (RDFLX))) (00 E5))) 
C2 (PR Hll (QUOTE EDIT)) 

(PR KIT COLON) 
(CO El) 
E3 (TCOtlC (COPY (SETQ *Z (CAR -Z))) *l) 

(COND 

((NULL (ERSETQ (SETQ *Z (EDIT1 -Z (CAR *X) ( 
CAOR *X) »*))>) (00 E2>) 

((HULL (CAR *Z)) NIL) 

((EQ (CAR *Z) (QUOTE QUIT)) (00 F7)) 
((S!:TQ *X (ERSETQ (UNFLATTEN (CAOR *Z)))) (00 
E5)> 

((SETQ «X (CDR *Z)) (00 E?))) 
(SETQ *X (CDR *Z)) 
(00 El) 
E'i (TCONC (COPY (CAR CHANGES)) •!) 

(COND 

((NULL (ERSETQ (SETQ *Z (EDIT1 (CAR CHANCES) 
(CAR *X) (OADR »X) *A)>)) NIL) 

((NULL (EQ (CAR *Z) (QUOTE STOP))) (00 E"»A)) 
( ( PR002 

(SETQ »X (CDR *Z)) 

(SETQ CHANGES (CDR CHANGES))) (GO E<0 ) 
((SETQ *X (ERSETQ (UNFLATTEN (CAR *X)))) (GO 
E5))) 

(ERROR (APPEND (QUOTE (UNSUCCESSFUL ATTEMPT TO 
EDIT)) (LIST 

HAME ) ) ) 
EIM (T.ETQ *X (CDR -Z)) 

(COND 

((SETQ CHANGES (C0« CHANGES)) (GO Ell))) 
(00 E2> 
E5 (SETQ *X (CAR »X)) 

(PUNCH (QUOTE PRINT)) 
(PUNCH (LIST 
(LIST 

(QUOTE EDITED) 
HAME) 
(CAR *!))) 



conn 



* MAMr)); 



((NULL (ATOM VAL)> (10 EG)) 

(<FQ VAL (QUOTf! EXPR)) (PUT *X (QUOTE EDITED 



(i'UIICM (QUOTE DFFLIST)) 
(PUNCH (LIST 

(SETQ -Z (LIST 
(LIST 
NAME 
*X))> 

VAI)) 

(PFFLIST *Z VAL) 

CSETQ «X NAI1E) 
EG (CSETQ FAST *F) 

(CSETQ QUOTE *Q) 

(CSETQ EDIT *Z) 

(RETURN *X) 
E7 (SETQ *X NIL) 

(00 EC.)))) 

(LDIT1 

(LAMIUM CO X H A) (PROfi (»Y> 

(UPTURN (conn 

((OR 

(EQ (QUOTE STOP)) 
(EQ (QUOTE QUIT))) (LIST 

X 

ID) 
((EQ (QUOTE X)) (LIST 
(F PR I NT X) 
X 

H>) 
<(F.Q (QUOTE MATCH)) (LIST 

(MAP (CDOR M) (FUNCTION (LAMBDA (X) (FPRINT 
(CAR X))))) 

X 

M)) 
((NUURERP 0) (LIST 
(FPRINT (CONO 

((NULL M) (QUOTE (NO MATCH YET))) 
((MINUSP 0) (COND 

((CREATERP (MINUS 0) CSETQ *Y (LENOTH 
(CDDR M)))> (QUOTE (TOO BIO))) 

(T (CADR (FIRSTS (CODR M) (PLUS 


*Y)))))) 
t(OR 

(HULL (SETQ *Y (FIRSTS (CDR M) 0))) 
(NULL (CDR «Y))) (QUOTF (TOO BIO)) 
(T (CAOR *Y)))) 

M)) 

((EQ (CAR 0) (QUOTE MATCH)) (COND 

((NULL (SETQ »Y (FL1P1 X (CDR 0) NIL A))) 
(LIST 

(FPRINT (QUOTE (DIONT MATCH))) 
X 

M)) 
(T (LIST 



NIL 
X 

(CAR -Y))))) 
((pq (CAR 0) (QUOTE FORI!)) (COND 
((HULL M) (LIST 

(FPU I NT (QUOTE (NO MATCH YET))) 
X 

M)> 

(T (LIST 

MIL 

(CDR (FLIP1 H NIL (COR 0) A)) 
M)))) 
((Fa (CAR 0) (QUOTE FLIPR)) (LIST 

(FPRINT (CONS (CAR (SETQ *Y (FLIPR1 X (CADR 
0) (CAODfi 0) (COUD 

((CDODR 0) (CAOnriR 0)) 
(T (LIST 

-1))) A))) (QUOTE (HATCHES 0CCURRF.O 
)))) 

(COR *Y) 

rO) 

(T O'ROC-2 

(PRINT (EVAL (ALIST))) 
. (LIST 
NIL 
X 

M)) ))))>) 
NIL vi 



V 



■ 



■ * - 



(Finn 

(LAMROA (X) (PROG (-X) 

(SETQ *X INLIST) 

Pi (coijd 

((OR 

(EQ X (CAAR *X)) 

(MFMRE11 X (CADOAR *X))) (RETURN (CAR *X ) > 



) 



((SETQ *X (CDR -X)) (GO Fl))) 
(ERHOR (CONS X (QUOTE (NOT FOUND))))))) 



(REMFX 

. (I.AlV'.nA V: Y) (PRDG (*X) 

(SETQ -X (CONS NIL Nit)) 

' - (CONO 

((ATOM X) (SETQ X (CADOR (FIND X))))) 

Rl (conn 

((AND 

(EQ (CAI)AR X) (QUOTE EXPR)) 

(OR 

(EQ (CADDR (CDAR X)) (QUOTE SUBU) ) ) ) ( 

PROG 2 

(IlI'LACO (CAR X) (CDDDAR X)) 

(TCONC (CAR X) *X>))) 

(conn 

(<SFTQ X (CDR X)) (DO Rl))) 
(RETURN (CAR *X ) ) ) ) > 

(nunn 

(LAM".™ (X) (PROG («X) 

(SETQ *X (CONS NIL NIL)) 

SI i"^OND 

((VULL X) (RETURN (CAR *X))) 

((EQ (CADAlt X) (QUOTE SURR) ) (TCONC (CAR X) 



*X>>) 



(SETQ X (COR X)) 
(GO SI)))) 



(REDEFINE 

(LAMSOA (X) (PROG (*X *Y) 

(SETQ *X (CONS NIL NIL)) 
Rl (COND 

((NULL X) (RETURN (CAR *X ) ) ) 

((SETQ *Y (GET (QUOTE EDITED) (CAR X))) (DEFLIST 



(LIST 



(LIST 

(CAR X) 

-Y)) (QUOTE EXPR))) 
(T (TCONC (CAR X) -X))) 
(SETQ X (CDR X)) 
(GO Rl)))) 



'.' L 



(nFi nAfi 

(LWnr'A CO (proo (-x) 
(cmn 

((MILL <SETQ X (PIMM X))) (ERROR UvMS X {QUOTE 

(mot F(«nr ))))>) 

(HGMEX (CADDR X) T) 
CI0M1 CI. 1ST 

(CAR X))) 
^■'"DEFINE (CADOR X))))) 

(OUT FILE 

(LAMRpA (X Y) (I'ROC, NIL 

Cr.liTQ X (OUTFILE1 X)) 

(FILEDELETE Y (QUOTE RATA)) 

(FILEURITE Y (QUOTE RATA) (QUOTE DEFINE (()) 

(HAP X (FUNCTION (LAMRRA (X) (F1LF.APMD Y (QUOTE 

DATA) (CAR X)>)>> 

(FII.CAPND Y (QUOTE OATA) (QUOTE )) STOP))))) 

(OUTFILF.l 

(LAtmOA (X) (PROG (*X) 

OF1 (SGTQ *X (TCOMC (LIST 

(CAR X) 

(cadrar x)) *x)) 

USETQ X (COR X)) (00 on))) 
(RETURN (CAR «X ) ) ) ) ) 

.(UPDATE 

(LAM.RIl/. :) (PROO (*X> 

(cmm 

((hull (setq x (fimn x))) (error (cons x (quote 

(HOT FO(l !in >»)) 

C(wm 

(SETQ *X (SUHR (CAORR X))) 
(REDEFINE *X)) (RELOAD (CAR X)))) 
(OUTPILIi (CADDR X) (CAR X)) 

(conn 

(*X (REHEX *X HID)) 
(tlAP (CADDR X) (FUNCTION (LAMRDA (X) (REMPROP ( 

QUOTE EDITED) (CAR X))))) 

(RETURN NIL)))) 

MIL i 



